home *** CD-ROM | disk | FTP | other *** search
/ Star Trek Starfleet Academy Mini Omnipedia / MINI_OMNI.ISO / pc / omni_v2.dxr / 00383_sound control.ls < prev    next >
Encoding:
Text File  |  1996-04-15  |  1.8 KB  |  65 lines
  1. global gBtnHitSND, gFTstartSND, gESstartSND, gPhotoSND, gTbarSND, gPopupSND, gFindSND, gTickSND, gPrepareSND, gAccessSND1, gWorkSND1, gIndexSND, gNopeSND, gWinVoiceEnabled, gModeState
  2.  
  3. on hInitSNDnames
  4.   set gBtnHitSND to the number of cast "EngShortBeep"
  5.   set gFTstartSND to the number of cast "Multibeep"
  6.   set gESstartSND to the number of cast "OneHiBeep"
  7.   set gPhotoSND to the number of cast "multi-hit"
  8.   set gTbarSND to the number of cast "ComChirp1"
  9.   set gPopupSND to the number of cast "Cute Chirp"
  10.   set gFindSND to the number of cast "chir-bloop"
  11.   set gTickSND to the number of cast "Tweep"
  12.   set gPrepareSND to the number of cast "EngSignalBeep"
  13.   set gIndexSND to the number of cast "EngDblBeep"
  14.   set gAccessSND1 to the number of cast "Accessing 1"
  15.   set gWorkSND1 to the number of cast "Working 1"
  16.   set gNopeSND to the number of cast "double beep"
  17. end
  18.  
  19. on hearit pSNDnum
  20.   if gModeState <> #TOPICS then
  21.     repeat while soundBusy(0)
  22.     end repeat
  23.   end if
  24.   puppetSound(cast value(pSNDnum))
  25.   updateStage()
  26.   repeat while soundBusy(0)
  27.   end repeat
  28. end
  29.  
  30. on hAnnounce pSNDname
  31.   if gModeState <> #TOPICS then
  32.     repeat while soundBusy(0)
  33.     end repeat
  34.     repeat while soundBusy(1)
  35.     end repeat
  36.   end if
  37.   if gWinVoiceEnabled <> 1 then
  38.     puppetSound(0)
  39.   end if
  40.   updateStage()
  41.   if gWinVoiceEnabled <> 1 then
  42.     puppetSound(pSNDname)
  43.   end if
  44.   puppetSound(pSNDname)
  45.   updateStage()
  46. end
  47.  
  48. on hSayProgress pWhat
  49.   if pWhat = #ACC then
  50.     set Lwhat to gAccessSND1 - 1
  51.     hSysAlert(#ACCESSING)
  52.   else
  53.     if pWhat = #WOR then
  54.       set Lwhat to gWorkSND1 - 1
  55.     end if
  56.   end if
  57.   if gModeState <> #TOPICS then
  58.     repeat while soundBusy(0)
  59.     end repeat
  60.   end if
  61.   if (gModeState <> #EPISSUB) and (gModeState <> #EPIS) then
  62.     hearit(Lwhat + random(5))
  63.   end if
  64. end
  65.